Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

V25Prog "NIVEAUX"
Cls
ViewWindow 1,127,1,1,63,1
Text 10,114,"TAB:"
Text 17,119,N
Vertical 111
Vertical 112
For 62I To 63
F-Line 111,I,1,I
Next
Horizontal 1
-9A
-9B
56G
For 1C To 6
B+10B
G-10G
For 1L To 11
A+10A
A
Mat F[L,C]D
Int (D100)I
D-(Ix100)I
0=DGoto N
If D=9 Or D=52:Then F-Line A,B,A+9,B
F-Line A+1,B+2,A+2,B+1
PlotOn A+3,B+2
F-Line A+6,B+2,A+7,B+1
PlotOn A+8,B+2
D=52PlotOn A+6,B+1
IfEnd
If D=15 Or D=16:Then F-Line A,B,A+9,B
F-Line A+2,B+2,A+7,B+2
F-Line A+8,B+3,A+8,B+4
F-Line A+7,B+5,A+6,B+5
F-Line A+5,B+6,A+5,B+7
F-Line A+6,B+8,A+3,B+8
F-Line A+4,B+7,A+4,B+6
F-Line A+3,B+5,A+2,B+5
F-Line A+1,B+4,A+1,B+3
IfEnd
If I>0 And I<4 And D>100000:Then F-Line A,B,A+9,B
F-Line A+3,B,A+7,B+5
F-Line A+6,B+5,A+7,B+4
IfEnd
If D=11:Then F-Line A,B,A+9,B
F-Line A+1,B+1,A+8,B+3
F-Line A+8,B+1,A+1,B+3
IfEnd
If D=1:Then F-Line A,B,A+9,B
F-Line A+3,B+1,A+4,B+7
F-Line A+2,B+6,A+6,B+6
F-Line A+1,B+8,A+3,B+8
PlotOn A,B+7
F-Line A+5,B+8,A+7,B+8
F-Line A+1,B+4,A+1,B+5
F-Line A+7,B+5,A+7,B+4
PlotOn A+8,B+7
IfEnd
If D>1000000 And I=0:Then Text 58-B,A+3,"?"
F-Line A,B,A+9,B
IfEnd
If D=2 Or I=5:Then F-Line A,B,A+9,B
0I
IfEnd
If D=3:Then F-Line A,B,A+9,B
F-Line A+2,B,A+2,B+9
F-Line A+7,B,A+7,B+9
For BG To B+9 Step 2
F-Line A+2,G,A+7,G
Next
IfEnd
If D>1000 And D<2000:Then F-Line A,B,A+9,B
F-Line A+3,B+1,A+5,B+7
F-Line A+5,B+1,A+3,B+7
F-Line A+5,B+7,A+3,B+7
F-Line A+3,B+4,A+5,B+4
IfEnd
If D>100 And D<300:Then F-Line A,B,A+9,B
For A+3G To A+7
F-Line G,B,G,B+7
Next
PlotOff A+6,B+4
IfEnd
Lbl N
Next
-9A
56G
Next
StoPict 1
1C
1L
57B
5A
0U
0
0X
25VText B,A,""